home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / edittool.d < prev    next >
Text File  |  1997-10-26  |  3KB  |  84 lines
  1. DEFINITION MODULE EditTools;
  2.  
  3. FROM SYSTEM     IMPORT ADDRESS;
  4.  
  5. FROM EditTypes  IMPORT EDITPTR, aLinePtr, undoType, aMark, searchDir;
  6.  
  7. PROCEDURE SetInfoLine (ed : EDITPTR);
  8.  
  9. PROCEDURE SetEditTitle (ed : EDITPTR);
  10.  
  11. PROCEDURE ShowFileChanged (ed : EDITPTR);
  12.  
  13. PROCEDURE UpdateCurrLine (VAR ed : EDITPTR; line : LONGINT);
  14.  
  15. PROCEDURE SetCurrLine (VAR ed : EDITPTR; line : LONGINT);
  16.  
  17. PROCEDURE SetStartLine (VAR ed : EDITPTR; line : LONGINT; docUpdate : BOOLEAN);
  18.  
  19.         (* Abfrage-Funktionen           *)
  20.  
  21. PROCEDURE getCharPos (VAR ed : EDITPTR; line : LONGINT; row : INTEGER; VAR x, y : INTEGER);
  22.  
  23. PROCEDURE SaveLine(VAR l : aLinePtr; lNr : LONGINT);
  24.  
  25. PROCEDURE PutInUndoList (line : aLinePtr);
  26.  
  27. PROCEDURE SaveOp (ed : EDITPTR; op : undoType; append : BOOLEAN);
  28.  
  29. PROCEDURE NewBlockToUndoBuffer (VAR ed : EDITPTR);
  30.  
  31. PROCEDURE DeleteLine (VAR ed : EDITPTR; redraw : BOOLEAN);
  32.  
  33. PROCEDURE FreeUndoBuffer();
  34.  
  35. PROCEDURE CheckAndFreeUndo(wdw: INTEGER);
  36.  
  37. PROCEDURE Undo (VAR ed : EDITPTR);
  38.  
  39. PROCEDURE SetBlockstart (VAR ed : EDITPTR);
  40.  
  41. PROCEDURE SetBlockend (VAR ed : EDITPTR);
  42.  
  43. PROCEDURE ClearBlock (VAR ed : EDITPTR);
  44.  
  45. PROCEDURE GetClickLineAndRow (ed : EDITPTR; x, y : INTEGER; VAR clLine : LONGINT; VAR clRow : INTEGER);
  46.  
  47. PROCEDURE TestBlockMarksAndSwap (ed : EDITPTR);
  48.  
  49. PROCEDURE ToWordEnd (ed : EDITPTR; line : LONGINT; row : INTEGER) : INTEGER;
  50.  
  51. PROCEDURE ToWordStart (ed : EDITPTR; line : LONGINT; row : INTEGER) : INTEGER;
  52.  
  53. PROCEDURE ToLineEnd (ed: EDITPTR; line: LONGINT): INTEGER;
  54.  
  55. PROCEDURE ToLineStart (ed: EDITPTR; line: LONGINT): INTEGER;
  56.  
  57. PROCEDURE MarkLine (ed : EDITPTR);
  58.  
  59. PROCEDURE MarkWord (VAR ed : EDITPTR);
  60.  
  61. PROCEDURE MarkBlock (VAR ed : EDITPTR; ox, oy : INTEGER; init: BOOLEAN; fromTop : BOOLEAN);
  62.  
  63. PROCEDURE ToBlockmark (ed : EDITPTR; ende : BOOLEAN); 
  64.  
  65. PROCEDURE InitSearch (ed: EDITPTR; direction: searchDir;
  66.                       VAR search, repl: ARRAY OF CHAR; doRepl: BOOLEAN): BOOLEAN; 
  67. (* Compiliert das Suchmuster und setzt ein paar Variablen fr
  68.  * Suchen & Ersetzen mit Wildcards, falls ersetzt werden soll
  69.  *)
  70.  
  71. PROCEDURE SearchWord (ed : EDITPTR; w: ARRAY OF CHAR; 
  72.                       direction : searchDir; VAR gefunden: BOOLEAN;
  73.                       VAR foundWord: ARRAY OF CHAR; again : BOOLEAN);
  74.  
  75. PROCEDURE ReplaceWord (ed : EDITPTR; VAR s, t: ARRAY OF CHAR);
  76.  
  77. PROCEDURE EndSearch ();
  78. (* Gibt das compilierte Suchmuster wieder frei
  79.  *)
  80.  
  81. PROCEDURE PossibleUndo (ed: EDITPTR): BOOLEAN;
  82.  
  83. END EditTools.
  84.